| TestingStarts method |
Applies to
TTestResult
Declaration
Procedure TestingStarts;
Implementation
procedure TTestResult.TestingStarts;
var
i :Integer;
begin
for i := 0 to fListeners.count - 1 do
begin
(fListeners[i] as ITestListener).TestingStarts;
end;
End; |
|
|